ocr: Puc. 3.31 Textl.Text : Text2.Text #H Text3.Text : Text4.Text : Textl.SetFocus End If End Sub Private Sub Text5 KeyPress (KeyAscii As Integer) If KeyAscii - 13 Then If Text5.Text "# Then Label7.Caption = "Apenynpexzenute Text7.Text "BBenure noapasneneHme Text5.SetFocus GOTo Finish4 End IE If Label7.Caption: - - - "IipenynpexzeHne Ther Label7.Caption "PesybTar" Text7.Text :# ATOS End If Textb.SetFocus End If Finish4: End Sub
